home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Rockford Magazine
/
Rockford_Magazine_040_19xx_-_de_Disk_5_of_5_Side_A.d64
/
zuerst laden!!
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
49 lines
11 rem -----------------------------
12 rem zuerst v1.2 01.10.95 alex zop
13 rem -----------------------------
40 printchr$(142):
50 print"[155][147]";:poke808,237:poke53280,0:poke53281,0 : rem ^ disable 'stop'
60 b$="inhalt*"
70 print"[158]========================================"
71 print"[145][158]brotkasten rockford-freeware diskette!!"
72 print"[145][158]========================================"
80 print"[158]----------------------------------------"
90 print"[145][155]um die programme dieser rockford-fd disk"
91 print"[145]problemlos anzuwenden, kannst du nun die"
92 print"[145]inhaltsbeschreibung mit allen wichtigen"
93 print"informationen, kurzanleitungen, und den"
94 print"copyright-hinweisen am bildschirm lesen"
95 print"oder auch ausdrucken lassen. viel spass!"
96 print"[145][158]----------------------------------------"
160 print"[158] wohin soll ich den text schreiben??"
170 print"[155] <[158]b[155]>ildschirm"spc(3)" [151]<d>rucker"spc(3)" <e>nde"
190 getg$:ifg$=""then190
200 ifg$="e"then470
210 ifg$="b"goto240
220 ifg$<>"d"then190
230 open1,4,7:q=1
240 open5,8,5,b$+",s,r":gosub420
245 print"[147][144]poke53280,0:poke53281,0
250 [153]"systantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
260 [153]"onstr$ruecke (NULL)(NULL)atnlenval o. (NULL)val(NULL)(NULL)(NULL)(NULL) um den (NULL)extfluss"
270 [153]"onanzuhalten. str$ruecke nochmals um weiter- "
280 [153]"onzulesen! (NULL)it >(NULL)< beendest str$u das (NULL)(NULL)chr$! "
290 [153]"ontantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanlist"
300 [161]#5,f$
310 [139]st[178]0[167]330
320 [139]st[178]64[167]440
330 [139]q[179][177]1[167][153]f$;:[137]350
340 [152]1,f$;
350 [161]a$
360 [139]a$[179][177]""[167][141]380
370 [137]300
380 [139]a$[178]"q"[167]440
390 [161]a$:[139]a$[178]""[167]390
400 [139]a$[178]"q"[167]440
410 [142]
420 [160]15:[159]15,8,15:[132]15,d,e$,f,g
430 [142]
440 q[178]0:[160]1:[160]5:[137]470
470 [151]808,237:[153]"on":[137]490
490 [151]631,13:[151]632,13:[151]198,2:[128]